home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / C64S25BD.ZIP / 9402.D64 / 3d-scroll.src < prev    next >
Encoding:
Text File  |  1997-02-28  |  2.7 KB  |  191 lines
  1.  
  2.  
  3. *=$8000
  4. ;
  5. ; **** EXTERNE SPRUENGE **** 
  6. ;
  7. EEA31   =$EA31
  8. EEA81   =$EA81
  9. ;
  10. ; **** FELDER **** 
  11. ;
  12. F2000   =$2000
  13. F2080   =$2080
  14. F8128   =$8128
  15. F816C   =$816C
  16. F816D   =$816D
  17. F81B1   =$81B1
  18. F81B2   =$81B2
  19. ;
  20. ; **** ABSOLUTE ADRESSEN **** 
  21. ;
  22. AB0     =$B0
  23. AB1     =$B1
  24. AFB     =$FB
  25. AFD     =$FD
  26. AFE     =$FE
  27. A0314   =$0314
  28. A0315   =$0315
  29. A07F8   =$07F8
  30. AD000   =$D000
  31. AD001   =$D001
  32. AD010   =$D010
  33. AD011   =$D011
  34. AD012   =$D012
  35. AD015   =$D015
  36. AD019   =$D019
  37. AD01A   =$D01A
  38. AD01B   =$D01B
  39. AD01C   =$D01C
  40. AD020   =$D020
  41. AD021   =$D021
  42. AD025   =$D025
  43. AD026   =$D026
  44. AD027   =$D027
  45. ADC04   =$DC04
  46. ADC05   =$DC05
  47. ADC0E   =$DC0E
  48. ;
  49. ; **** POINTER **** 
  50. ;
  51. P04     =$04
  52. ;
  53. ; **** PROGRAMM **** 
  54. ;
  55. ;
  56.        SEI
  57.        LDA AD01B
  58.        ORA #$01
  59.        STA AD01B
  60.        LDY #$00
  61.        STY AD020
  62.        STY AD021
  63.        STY AFB
  64.        INY
  65.        STY ADC0E
  66.        LDA #$30
  67. I8019  STA AFE
  68.        LDA AD012
  69.        EOR ADC04
  70.        STA F8127,Y
  71.        ORA ADC05
  72.        AND #$01
  73.        STA F816C,Y
  74.        LDA AFE
  75.        STA F81B1,Y
  76.        CLC
  77.        ADC #$03
  78.        INY
  79.        CPY #$46
  80.        BNE I8019
  81.        JSR I8106
  82.        LDY #$00
  83.        TYA
  84.        STA ADC0E
  85. I8042  STA F2000,Y
  86.        DEY
  87.        BNE I8042
  88.        LDX #$00
  89. I804A  LDA F8121,Y
  90.        STA F2000,X
  91.        LDA #$01
  92.        STA F2080,X
  93.        TXA
  94.        CLC
  95.        ADC #$09
  96.        TAX
  97.        INY
  98.        CPY #$07
  99.        BNE I804A
  100.        INY
  101.        STY AB1
  102.        LDA #$1B
  103.        STA AD011
  104.        LDA #$01
  105.        STA AD01A
  106.        LDA #$7C
  107.        STA A0314
  108.        LDA #$80
  109.        STA A0315
  110.        LDA #$45
  111.        STA AB0
  112.        CLI
  113.        RTS
  114.        INC AD019
  115.        LDA AB0
  116.        CMP #$46
  117.        BCS I80B9
  118. I8085  LDA AFE
  119.        STA A07F8
  120.        LDA AD015
  121.        ORA #$01
  122.        STA AD015
  123.        LDY AFB
  124.        LDA F8128,Y
  125.        STA AD000
  126.        LDA AD010
  127.        AND #$FE
  128.        ORA F816D,Y
  129.        STA AD010
  130.        LDX F81B2,Y
  131.        STX AD012
  132.        DEX
  133.        STX AD001
  134.        INC AFB
  135.        INY
  136.        CPY AB0
  137.        BEQ I80C0
  138.        JMP EEA81
  139. I80B9  LDA #$45
  140.        STA AB0
  141.        JMP I8085
  142. I80C0  INC A07F8
  143.        LDA AB1
  144.        CMP #$08
  145.        BNE I80CF
  146.        JSR I8106
  147.        JMP I80DB
  148. I80CF  LDA AD01C
  149.        AND #$FE
  150.        STA AD01C
  151.        LDA #$82
  152.        STA AFE
  153. I80DB  LDY #$00
  154.        STY AFB
  155.        LDX #$01
  156. I80E1  TXA
  157.        CLC
  158.        ADC F8128,Y
  159.        BCC I80F4
  160.        STA AFD
  161.        LDA F816D,Y
  162.        EOR #$01
  163.        STA F816D,Y
  164.        LDA AFD
  165. I80F4  STA F8128,Y
  166.        INX
  167.        CPX AB1
  168.        BNE I80FE
  169.        LDX #$01
  170. I80FE  INY
  171.        CPY AB0
  172.        BNE I80E1
  173.        JMP EEA31
  174. I8106  LDA AD01C
  175.        ORA #$01
  176.        STA AD01C
  177.        LDA #$0F
  178.        STA AD027
  179.        LDY #$0C
  180.        STY AD026
  181.        DEY
  182.        STY AD025
  183.        LDA #$80
  184.        STA AFE
  185.        RTS
  186. F8121  ORA (P04,X)
  187.        RTI
  188. ;
  189.        .BYTE $03,$30,$80;"0Ç
  190. F8127  .BYTE $08
  191.